home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / util / cli / kscResetCop.lha / ResetCop.asm < prev    next >
Assembly Source File  |  1997-04-08  |  958b  |  50 lines
  1. ; ResetCop 1.0 : resets (restores?) copper to original state
  2. ; by Kyzer/CSG
  3. ; Yet Another Derivative Work Of CadOS :)
  4. ;
  5.     incdir    include:
  6.     include    lvo.i
  7.     include    custom.i
  8.     include    graphics/gfxbase.i
  9.  
  10.     move.l    4.w,a6
  11.     lea    _custom,a5
  12.     lea    gfxname(pc),a1
  13.     moveq    #0,d0
  14.     jsr    _LVOOpenLibrary(a6)
  15.     tst.l    d0
  16.     beq.s    .nogfx
  17.     move.l    d0,a6
  18.     move.l    gb_ActiView(a6),a1
  19.     jsr    _LVOLoadView(a6)
  20.     jsr    _LVOWaitTOF(a6)
  21.     jsr    _LVOWaitTOF(a6)
  22.     move.l    gb_copinit(a6),cop1lc(a5)
  23.     move.l    gb_LOFlist(a6),cop2lc(a5)
  24.     move.w    #DMAF_SETCLR|DMAF_MASTER|DMAF_COPPER,dmacon(a6)
  25.     moveq    #0,d0
  26.     move.w    d0,fmode(a5)
  27.     move.w    d0,copjmp1(a5)
  28.     move.w    d0,copjmp2(a5)
  29.     move.l    a6,a1
  30.     move.l    4.w,a6
  31.     jsr    _LVOCloseLibrary(a6)
  32.  
  33.     lea    intname(pc),a1
  34.     moveq    #0,d0
  35.     jsr    _LVOOpenLibrary(a6)
  36.     tst.l    d0
  37.     beq.s    .noint
  38.     move.l    d0,a6
  39.     jsr    _LVORethinkDisplay(a6)
  40.     move.l    a6,a1
  41.     move.l    4.w,a6
  42.     jsr    _LVOCloseLibrary(a6)
  43. .noint
  44. .nogfx    moveq    #0,d0
  45.     rts
  46.  
  47. gfxname    dc.b    'graphics.library',0
  48. intname    dc.b    'intuition.library',0
  49.  
  50.